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; 1 0001 © MODULE GTLCAT ( : 
: ¢ O08 LANGUAGE ( L158 3¢). ° 
$ 00 IDENT = ‘'V04=-000' ‘ 
; 4 0004 QO d= ; 
; 5 0005 1 BEGIN ° 
3 6 0006 1 | ‘ 
; 7? 0007 1! : 
4 8 0008 1 See RR REAR AEE ETEK AAAHE AAA KAA AAA | E 
$ 9 0009 1 !* : 
; 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
Baas 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ‘ 
: i Bolg ! ~ ALL RIGHTS RESERVED. ‘ 
; 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
a 0015 1 !* ON N ACCORDANCE WITH T TERMS UCH LICENSE D WITH THE * ‘ 
3; 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ‘ 
.- oe 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | ° 
>; 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ‘ 
; y sid : ? TRANSFERRED. ® : 
Py :* ® | o 
ae 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ‘ 
; & tt) 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ‘ 
; Si OoSz : - CORPORATION. * ‘ 
2 it ® | a 
. 2 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; «& 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
; a 0027 1 !* * ‘ 
; 28 0028 1 !* * | ‘ 
: 29 st 94 LL eee RRR RAAT EAA EAA ‘ 
.. a 0030 1 ; 
3. aT 0031 1 !++ ; 
; 32 O03§ 1! ‘ 
3 BP 0035 1! FACILITY: F11ACP Structure Level 2 ‘ 
: | «634 0034 1! ; 
, om 0035 1 ! ABSTRACT: : 
; = 0036 1! . ; : 
toe 4 0037 1! This routine extracts the compat ibi} ity mode placement control data ; 
; $ it : from the attribute List and stores it in the standard place in the FIB. ; 
; «68 0040 1 ! ENVIRONMENT: : 
; (41 0041 1! ts ; : 
: 42 0042 1! STARLET operating system, including privileged system services ‘ 
; 43 0045 1! and internal exec routines. ‘ 
: 644 044 1! : 
; 65 045 1 !-- ; 
; & 0046 1! ; 
o 47 0047 1 $ ¢ 
: $8 Bpe8 : AUTHOR: Andrew C. Goldstein, CREATION DATE: 8-Dec-1978 15:52 ; 
; 20 0981 : : MODIFIED BY: : 
; O26 v03-002 LMP0256 L. Mark Pilant 6-Jun-1984 14:24 5 
eS 053 1! Make sure the use of the attribute count from the IRP is : 
; 20 bee : zero biased. : 
i 056 1! v03-001 CDS0001 _ Christian D. Saether 30-Dec-1983 : 
; 0057 1! Use L_NORM Linkage and BIND_COMMON macro. F 
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; 6? 1035 } GLOBAL ROUTINE GET_LOC_ATTN (ABD, FIB) : L NORM NOVALUE = 

; 6 1 2$ 1 !+4 

; joo, % } 

: 4 1326 : } FUNCTIONAL DESCRIPTION: 

: 71 1060 1! This routine extracts the compat ot ity mode placement control data 
3 f 1993 : from the attribute List and stores it in the standard format in the FIB. 
; «674 1088 ' 3 

| 1064 1 ! CALLING SEQUENCE: 

oR. 1065 1! GET_LOC_ATTR (ARG1, ARG2) 

a. £ 1066 1! 

; 1067 1 ! INPUT PARAMETERS: 

rr. 1068 1! ARG1: address of buffer descriptor vector 

; 1069 1! 

; 8) 1070 1°! IMPLICIT INPUTS: 

; . 190) : IO_PACKET: address of 1/0 packet 

; BG 1978 1 ! OUTPUT PARAMETERS: 

; 89 1074 1! ARG2: address of user FIB 

; 1075 1! 

: Of 1076 1 ! IMPLICIT OUTPUTS: 

; & 1077 1! NONE 

; 1078 1! 

; 8690 1079 1°! ROUTINE VALUE: 

;. 4 1080 1! NONE 

: & 1081 1! 

, 1086 1 ! SIDE EFFECTS: 

; (94 1083 1! NONE 

; 1084 1! 

; © 1085 1 !-- 

s oF 1086 1 

; 1087 § BEGIN 

; 1088 

: 100 1089 2 MAP 

s 101 1090 2 ABD : REF BBLOCKVECTOR C,ABDS$C_LENGTH), 

: 102 1091 2 ' descriptor vector arg 
3 is? +44 2 FIB : REF BBLOCK; ! FIB arg 

; 105 1094 3 ' Format of compatibility mode attribute data. 

: 106 1095 ‘ 

3: 107 1096 

> i 944 MACRO 

: 109 1098 LOC_CODE = 0, 0, 8, 0%, ! attribute code byte 

z 110 1099 LOC_CTRL = 1, 0, 8, 0%, ! placement control bits 
: 191 1100 _VBN = 1, 0, 1, 0%. ! VBN format 

3 11g 1101 LOC_APPROX = 1,1, 1, 0%, ! use approximate placement 
. 1198 LOC_LBNx = 1, 2, 1, 02. ! LBN format 

: «114 110 LOC_CYL = 1, 5, 1, 02, ! cylinder format 

s 999 1104 LOC_RVNx = ¢: » 5. %, ! relative volume number 
3 118 ine LOC" ADDR = 3, 0,32, 0%; ! address value 

; BY 1107 : Format conversion table. This table is indexed into by the control bits. 
; 159 1109 

: 121 1110 BIND 
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J 15 | 
GTLCAT 16-Sep : VAX-11 Bliss-32 V4.0-742 6 
v04-000 14-Sep prto8d 4 36:98 DISKSVMSMASTER:CF11X.SRCIGTLCAT.B32; a "od 
3 PSECT SUMMARY | 
: Name Bytes Attributes | 
: SCODES 135 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
; : esaceuse SyYERO(§ soweeere Pages Processing 
s File Total Loaded Percent Mapped Time 
: _$255$DUA28: CSYSLIBILIB.L32;1 18619 32 0 1000 00:01.9 


: 
un Time 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GTLCAT/OBJ=OBJ$:GTLCAT MSRC$:GTLCAT/UPDATE=(ENH$:GTLCAT) 
120 code + 15 data bytes 
ple y Time: 00:55. 9 
Lines/CPU Min: 4247 
Lexemes/CPU-Min: 53018 


panty Used: 209 pages 
Compilation Complete 
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